﻿Imports Microsoft.DirectX.Direct3D
Imports Microsoft.DirectX

Public Class Box : Inherits Shape

    Dim Width, Height, Depth As Single

    Sub New(ByVal w As Single, ByVal h As Single, ByVal d As Single)
        Width = w
        Height = h
        Depth = d
    End Sub

    Public Overrides Sub Create()
        M = Mesh.Box(Device, Width, Height, Depth)
    End Sub

End Class
